home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / biz / misc / MUIBanque1_11.lha / MUIBanque / Installation < prev    next >
Text File  |  1996-11-24  |  2KB  |  65 lines
  1. ; $VER: Installation MUIBanque 1.10 (03.11.96) par David PRESLE
  2.  
  3. (complete 0)
  4.  
  5. ;####################################################################
  6. ; Création de quelques variables
  7.  
  8. (set MessChoixDir "Où voulez vous créer le répertoire MUIBanque?")
  9. (set AideChoixDir
  10.     (cat "  Sélectionnez l'endroit où le repertoire MUIBanque sera créé.\n"
  11.          "  Ce répertoire servira à stocker tous les fichiers de MUIBanque."
  12.     )
  13. )
  14. (set MessChoixExemple "Voulez-vous copier le fichier d'exemple \"Exemple.compte\"?")
  15. (set AideChoixExemple
  16.     (cat "  Le fichier d'exemple permet d'avoir un aperçu des possibilités de MUIBanque.\n"
  17.          "  Si vous choisissez de le copier, ce fichier sera stocké dans le même répertoire que MUIBanque."
  18.     )
  19. )
  20.  
  21. (complete 25)
  22.  
  23. ;####################################################################
  24. ;Choix et création du repertoire
  25.  
  26. (set DestDir
  27.         (askdir
  28.             (prompt MessChoixDir)
  29.             (help AideChoixDir)
  30.             (default "SYS:")
  31.         )
  32. )
  33.  
  34. (set DestDir (expandpath DestDir))
  35. (set @default-dest (tackon DestDir "MUIBanque"))
  36.  
  37. (makedir @default-dest (infos))
  38.  
  39. (complete 50)
  40.  
  41. ;####################################################################
  42. ; Copie des fichiers
  43.  
  44. (copyfiles
  45.     (source "")
  46.     (dest @default-dest)
  47.     (pattern "(MUIBanque|MUIBanque.guide|MUIBanque.LisezMoi)")
  48.     (infos)
  49. )
  50.  
  51. (complete 75)
  52.  
  53. ;####################################################################
  54. ; Copie du fichier Exemple.compte?
  55.  
  56. (
  57. if (askbool (prompt MessChoixExemple) (help AideChoixExemple))
  58.     (
  59.     copyfiles (source "Exemple.compte") (dest @default-dest)
  60.     )
  61. )
  62.  
  63. (complete 100)
  64.  
  65. ;####################################################################